home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / blink_icon.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  1.1 KB  |  41 lines
  1. // ----------------------------------------------------------------------------------
  2. //    blink_icon.scr
  3. //    Jeff Leggett
  4. //    07/12/2002
  5. //
  6. //    usage:
  7. //    exec global/blink_icon.scr::BlinkIcon <iconname> <count> <pausetime>
  8. //
  9. // ----------------------------------------------------------------------------------
  10.  
  11. // ----------------------------------------------------------------------------------
  12. main:
  13. // ----------------------------------------------------------------------------------
  14.  
  15.     End
  16.  
  17. // ----------------------------------------------------------------------------------
  18. BlinkIcon local.iconname local.count local.pause:
  19. // ----------------------------------------------------------------------------------
  20.  
  21.     if ( local.iconname==NIL )
  22.         End
  23.  
  24.     if ( local.count==NIL )
  25.         local.count    = 5
  26.  
  27.     if ( local.pause==NIL )
  28.         local.pause    = 0.5
  29.  
  30.     for (local.i=0;local.i<local.count;local.i++)
  31.     {
  32.         waitthread global/items.scr::add_item local.iconname nomessage
  33.         wait local.pause
  34.         waitthread global/items.scr::remove_item local.iconname nomessage
  35.         wait local.pause
  36.     }
  37.  
  38.  
  39.     End
  40.  
  41.